home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Animation How-To
/
Animation How-to CD.iso
/
PLY
/
CHAPTER3
/
ROCKY
/
README
< prev
next >
Wrap
Text File
|
1994-01-01
|
2KB
|
63 lines
The Rocking color data files map shifting textures onto a sphere.
Added here is RAINBOW.PI, which shows a shifting texture mapped onto a
flat surface.
Several additional examples of sphere animations besides the one described
in the text have been included in the FLY directory, but their data files
have long ago dissipated as random heat into the endless void of space.
In other words, I can't find them anywhere <g>. There are several additional
examples to help you find them, and make up your own.
You will probably want to try varying:
// Camera
viewpoint {
from <300,200,-250>
at <0,0,0>
up <0,1,0>
angle 120 <===============this (i.e. angle 90 + 30*sin(phz*rad) )
aspect 1.433
resolution 320,200
}
define color_phase
texture {
noise surface {
color white
position_fn position_spherical <============This (0,1,2,3,4,5)
lookup_fn lookup_ramp <============This (0,1,2,3)
octaves 1 <============This (0,1,2,3,4,5)
turbulence 1.5+0.5*sin(phz*rad) <============This (any weird function)
ambient 0.2
diffuse 0.8
specular 0.3
microfacet Reitz 5
color_map(
[0.000, 0.033, <a00, b00, c00>, <a01, b01, c01> ]
[0.033, 0.067, <a01, b01, c01>, <a02, b02, c02> ]
[0.933, 0.967, <a28, b28, c28>, <a29, b29, c29> ]
...
[0.967, 1.000, <a29, b29, c29>, <a00, b00, c00> ])
}
scale <100,100,100> <========================This (try a tri-phase)
}
define tx 100*sin(phz*rad) <---|
define ty 50*sin(phz*rad) |---These
define tz 100*sin(phz*rad) <---|
// Create a volume
object {
sphere <0,0,0>, 540 <=== and this guy
color_phase
translate <tx,ty,tz>
}